<%@  language="javascript" %>
  
<!--#include file="Cabecera2.asp" -->
<%
  var rolUsuario = Session("auth_granted_poa_rol");
  unidadOrganizacionalId = Session("auth_granted_poa_unidad");

  
  //--------------------
  var aper_id = 0;
  
  qGestion = Session("auth_granted_poa_gestion");
  unidadOrganizacionalId = Session("auth_granted_poa_unidad");
  var rolUsuario = Session("auth_granted_poa_rol");

  // consulta Aperturas
  qApertura = "SELECT ap.aper_id, ap.aper_programa, ap.aper_proyecto, ap.aper_actividad, ap.aper_descripcion ";
  qApertura += "FROM AperturaProgramatica ap WHERE ap.aper_estado = 1 AND ap.aper_gestion = " + qGestion + " ";
  qApertura += "AND (ap.aper_proyecto <> '0000' OR ap.aper_actividad <> '000') ";
  if (rolUsuario == "0010000000" || rolUsuario == "0001000000") {
    qApertura += "AND ap.unidad_id=" + unidadOrganizacionalId;
    aper_id = Session("auth_granted_poa_apertura");
  }
  //Response.Write(qApertura);
  var Aperturas = GetDatar(qApertura);
  

  if (request.form("submit").count() == 1) 
  {// Form
  
    aper_id = request.form("aper_id");
  }

  if (aper_id != 0)
  {
    qInsumos = "SELECT i.par_id, pa.par_nombre, sum(i.ins_costo_total) as importe, sum(i.ins_cert_saldo) as saldo ";
    qInsumos += "FROM Insumos i ";
    qInsumos += "INNER JOIN InsumoProceso2014 ip ON ip.ins_id = i.ins_id ";
    qInsumos += "INNER JOIN Procesos2014 p ON p.pro2014_id = ip.pro2014_id AND p.aper_id = " + aper_id;
    qInsumos += " INNER JOIN Partidas pa ON pa.par_id = i.par_id ";
    qInsumos += "GROUP BY i.par_id, pa.par_nombre ";
    //response.Write(qInsumos);
    var Insumos = GetDatar(qInsumos);
    /* otra consulta por meses
    SELECT i.par_id, pa.par_nombre, i.ins_enero, i.ins_febrero, i.ins_marzo, i.ins_abril, i.ins_mayo, i.ins_junio, i.ins_julio, i.ins_agosto, i.ins_septiembre, i.ins_octubre, i.ins_noviembre, i.ins_diciembre , sum(i.ins_costo_total) as importe 
    FROM Insumos i 
    INNER JOIN InsumoProceso2014 ip ON ip.ins_id = i.ins_id 
    INNER JOIN Procesos2014 p ON p.pro2014_id = ip.pro2014_id AND p.aper_id =1394
    INNER JOIN Partidas pa ON pa.par_id = i.par_id 
    GROUP BY i.par_id, pa.par_nombre, i.ins_enero, i.ins_febrero, i.ins_marzo, i.ins_abril, i.ins_mayo, i.ins_junio, i.ins_julio, i.ins_agosto, i.ins_septiembre, i.ins_octubre, i.ins_noviembre, i.ins_diciembre */

    // consulta Aperturas
    qApertura = "SELECT ap.aper_id, ap.aper_programa, ap.aper_proyecto, ap.aper_actividad, ap.aper_descripcion ";
    qApertura += "FROM AperturaProgramatica ap WHERE ap.aper_estado = 1 AND ap.aper_gestion = " + qGestion + " ";
    qApertura += "AND (ap.aper_proyecto <> '0000' OR ap.aper_actividad <> '000') ";
    qApertura += "AND ap.aper_id=" + aper_id;
    var Apertura = GetDatar(qApertura);
  }
%>
<!-- Pagina de inicio -->

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tbody>
    <tr>
      <td class="TituloSeccion">Presupuesto y Saldo por Partida a la fecha</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>
        <form action="" name="FrmBusqueda" method="post">
          <table width="60%" border="0" cellspacing="0" cellpadding="0" align="center">
            <tbody>
              <tr>
                <td width="20%" align="center">Seleccione Apertura</td>
                <td width="50%" align="center">
                  <select name="aper_id" id="aper_id" class="TextoTam3">
                    <option value="">-- Seleccione --</option>
                    <% while (!Aperturas.Eof) { %>
                    <option value="<%=Aperturas("aper_id") %>" <%= (Number(aper_id) == Number(Aperturas("aper_id"))) ? " selected='selected' " : "" %> >
                      <%=Aperturas("aper_programa") + Aperturas("aper_proyecto") + Aperturas("aper_actividad") + " - " + Aperturas("aper_descripcion") %></option>
                    <% Aperturas.MoveNext; } Aperturas.Movefirst; %>    
                  </select>
                </td>
                <td width="30%" align="center">
                  <input name="submit" value="Aceptar" type="submit" class="Boton"></td>
              </tr>
            </tbody>
          </table>
        </form>
        <br>
        <table width="85%" border="0" cellspacing="1" cellpadding="1" align="center">

          <tbody>
            <tr>
              <td>

                <table width="90%" border="0" cellspacing="1" cellpadding="1" align="right">


                  <tbody>
                  <% if (aper_id != 0) { %>
                    <tr>
                      <td class="SubTituloFila" height="40">
                      
                        <img src="Iconos/date.png" width="16" height="16" border="0" align="absmiddle"> <%=Apertura("aper_programa") + Apertura("aper_proyecto") + Apertura("aper_actividad") + " - " + Apertura("aper_descripcion") %></td>
                        
                    </tr>
                    <tr>
                      <td>

                        <table width="90%" border="0" cellspacing="1" cellpadding="2" align="left" class="tablaseparada">
                          <tbody>
                            <tr>
                              <td class="EncabezadoTablaDegradado" align="center">No. Partida</td>
                              <td class="EncabezadoTablaDegradado" align="center">Partida</td>
                              <td class="EncabezadoTablaDegradado" align="center">Presupuesto</td>
                              <td class="EncabezadoTablaDegradado" align="center">Certificado <br />o Ejecutado</td>
                              <td class="EncabezadoTablaDegradado" align="center">Saldo</td>
                            </tr>
                            <%
                              var total = 0;
                              var total2 = 0;
                              var totalCertEjec = 0;
                              var Count = 0;
                              while (!Insumos.Eof) {
                                if (Count % 2 == 0)
                                  clase = "TablaFila1";
                                else
                                  clase = "TablaFila2";
                                certOEjecSinForm = Insumos("importe") - Insumos("saldo");
                                certOEjec = FormatNumber(certOEjecSinForm, 2, true, true, true);
                                %>
                            <tr class="<%= clase %>">
                              <td><%=Insumos("par_id") %></td>
                              <td style=""><span title="<%=Insumos("par_nombre") %>"><%=Insumos("par_nombre") %></span></td>
                              <td align="right"><%= FormatNumber(Insumos("importe"), 2, true, true, true) %></td>
                              <td align="right"><%= certOEjec %></td>
                              <td align="right"><%= FormatNumber(Insumos("saldo"), 2, true, true, true) %></td>
                            </tr>
                            <% 
                                total = total + Insumos("importe");
                                total2 = total2 + Insumos("saldo");
                                totalCertEjec = totalCertEjec + certOEjecSinForm;
                                Insumos.MoveNext; 
                                Count++;
                                } 
                          //Insumos.Movefirst; %>                                
                            <tr class="TablaFila1">
                              <td colspan="2" align="right" height="40" valign="middle">T O T A L&nbsp;&nbsp;&nbsp;</td>
                              <td align="right" height="40" valign="middle">&nbsp;&nbsp;&nbsp;<%= FormatNumber(total, 2, true, true, true) %></td>
                              <td align="right" height="40" valign="middle"><%= FormatNumber(totalCertEjec, 2, true, true, true) %></td>
                              <td align="right" height="40" valign="middle">&nbsp;&nbsp;&nbsp;<%= FormatNumber(total2, 2, true, true, true) %></td>
                            </tr>
                          </tbody>
                        </table>

                      </td>
                    </tr>
                    <% } %>
                  </tbody>
                </table>
              </td>
            </tr>

            <tr>
              <td>&nbsp;</td>
            </tr>
            <!--
            <tr>
              <td align="right">Imprimir Documento <a href="PresupuestoGastoPrint.asp?cmdApertura=0&amp;cmdPartida=0" target="_blank">
                <img src="Iconos/printer.png" width="16" height="16" border="0" align="absmiddle"></a></td>
            </tr>
            <tr>
              <td align="right">Exportar a Excel <a href="PresupuestoGastoExcel.asp?cmdApertura=0&amp;cmdPartida=0">
                <img src="Iconos/page_excel.png" width="16" height="16" border="0" align="absmiddle"></a></td>
            </tr>
            <tr>
              <td align="right">Exportar a Word <a href="PresupuestoGastoWord.asp?cmdApertura=0&amp;cmdPartida=0">
                <img src="Iconos/page_word.png" width="16" height="16" border="0" align="absmiddle"></a></td>
            </tr>-->
            <tr>
              <td>&nbsp;</td>
            </tr>
          </tbody>
        </table>

      </td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
  </tbody>
</table>

<!-- FIN CUERPO -->

<!--#include file="Pie2.asp" -->
